Manchester United on CD/Manchester United on CD.iso/advert.dxr/Internal_6.ls

Text File | 2000-08-30 | 708 b | 27 lines

on exitFrame
  global gl_advert_videolist, nextvideolist
  if not listp(gl_advert_videolist) then
    gl_advert_videolist = []
  end if
  videolist = getvideosfornextsecion()
  repeat while 1
    nextvideolist = videolist[random(videolist.count)]
    if gl_advert_videolist.getPos(nextvideolist) = 0 then
      gl_advert_videolist.add(nextvideolist)
      exit repeat
    end if
  end repeat
  put nextvideolist
  if gl_advert_videolist.count >= videolist.count then
    tmp = gl_advert_videolist[gl_advert_videolist.count]
    gl_advert_videolist = [tmp]
    put "all ads shown"
  end if
  if nextvideolist.advertType = #still then
    target = "still"
  else
    target = "video"
  end if
  go(target)
end